home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2001 February / CD Rom Data Şubat 2001.iso / Media / Internet.dcr / 00017_real3d.swf / scripts / frame_2 / DoAction.as
Encoding:
Text File  |  2001-01-15  |  6.5 KB  |  297 lines
  1. xcenter += xmove;
  2. ycenter += ymove;
  3. if("520" < xcenter or xcenter < "120")
  4. {
  5.    xmove = - xmove;
  6. }
  7. if("280" < ycenter or ycenter < "120")
  8. {
  9.    ymove = - ymove;
  10. }
  11. if(rotcount < totrotations)
  12. {
  13.    count = "1";
  14.    rotcount += "1";
  15.    while(count < numpoints + "1")
  16.    {
  17.       newx = eval("x" add count);
  18.       newy = eval("y" add count);
  19.       newz = eval("z" add count);
  20.       tempy = newy * xcos - newz * xsin;
  21.       tempz = newy * xsin + newz * xcos;
  22.       newz = tempz;
  23.       tempx = newx * yCos - newz * ySin;
  24.       tempz = newx * ySin + newz * yCos;
  25.       newx = tempx;
  26.       newy = tempy;
  27.       tempx = newx * zCos - newy * zSin;
  28.       tempy = newx * zSin + newy * zCos;
  29.       set("x" add count,tempx);
  30.       set("y" add count,tempy);
  31.       set("z" add count,tempz);
  32.       set("sortz" add count,count);
  33.       count += "1";
  34.    }
  35.    count2 = "1";
  36.    while(count2 < numpoints + "1")
  37.    {
  38.       count = count2;
  39.       low = "300";
  40.       while(count < numpoints + "1")
  41.       {
  42.          temp1 = eval("sortz" add count);
  43.          temp2 = eval("z" add temp1);
  44.          if(temp2 < low)
  45.          {
  46.             low = temp2;
  47.             swap = count;
  48.          }
  49.          count += "1";
  50.       }
  51.       temp = eval("sortz" add count2);
  52.       set("sortz" add count2,eval("sortz" add swap));
  53.       set("sortz" add swap,temp);
  54.       count2 += "1";
  55.    }
  56.    count = "1";
  57.    while(count < numpoints + "1")
  58.    {
  59.       sort = eval("sortz" add count);
  60.       col = eval("col" add sort);
  61.       setProperty("/point" add count add "_" add col, _X, eval("x" add sort) + xcenter);
  62.       setProperty("/point" add count add "_" add col, _Y, eval("y" add sort) + ycenter);
  63.       setProperty("/point" add count add "_2", _visible, col == "2");
  64.       setProperty("/point" add count add "_3", _visible, col == "3");
  65.       setProperty("/point" add count add "_1", _visible, col == "1");
  66.       setProperty("/point" add count add "_4", _visible, col == "4");
  67.       count += "1";
  68.    }
  69. }
  70. else
  71. {
  72.    if(totshapes < curshape)
  73.    {
  74.       curshape = "1";
  75.    }
  76.    if(curshape == "1")
  77.    {
  78.       ival = "27";
  79.       x1 = - ival;
  80.       y1 = ival;
  81.       z1 = ival;
  82.       x2 = ival;
  83.       y2 = ival;
  84.       z2 = ival;
  85.       x3 = - ival;
  86.       y3 = - ival;
  87.       z3 = ival;
  88.       x4 = ival;
  89.       y4 = - ival;
  90.       z4 = ival;
  91.       x5 = - ival;
  92.       y5 = ival;
  93.       z5 = - ival;
  94.       x6 = ival;
  95.       y6 = ival;
  96.       z6 = - ival;
  97.       x7 = - ival;
  98.       y7 = - ival;
  99.       z7 = - ival;
  100.       x8 = ival;
  101.       y8 = - ival;
  102.       z8 = - ival;
  103.       col1 = "2";
  104.       col2 = "2";
  105.       col3 = "2";
  106.       col4 = "2";
  107.       col5 = "2";
  108.       col6 = "2";
  109.       col7 = "2";
  110.       col8 = "2";
  111.       numpoints = "8";
  112.       totrotations = "360";
  113.       rotcount = "0";
  114.    }
  115.    if(curshape == "2")
  116.    {
  117.       ival = "50";
  118.       x1 = "0";
  119.       y1 = "0";
  120.       z1 = "0";
  121.       x2 = "0";
  122.       y2 = "0";
  123.       z2 = ival;
  124.       x3 = "0";
  125.       y3 = "0";
  126.       z3 = - ival;
  127.       x4 = ival;
  128.       y4 = "0";
  129.       z4 = "0";
  130.       x5 = - ival;
  131.       y5 = "0";
  132.       z5 = "0";
  133.       x6 = "0";
  134.       y6 = ival;
  135.       z6 = "0";
  136.       x7 = "0";
  137.       y7 = - ival;
  138.       z7 = "0";
  139.       x8 = "0";
  140.       y8 = "0";
  141.       z8 = (- ival) * "2";
  142.       x9 = "0";
  143.       y9 = "0";
  144.       z9 = ival * "2";
  145.       x10 = ival * "2";
  146.       y10 = "0";
  147.       z10 = "0";
  148.       x11 = (- ival) * "2";
  149.       y11 = "0";
  150.       z11 = "0";
  151.       x12 = "0";
  152.       y12 = (- ival) * "2";
  153.       z12 = "0";
  154.       x13 = "0";
  155.       y13 = ival * "2";
  156.       z13 = "0";
  157.       col1 = "4";
  158.       col2 = "1";
  159.       col3 = "1";
  160.       col4 = "1";
  161.       col5 = "1";
  162.       col6 = "1";
  163.       col7 = "1";
  164.       col8 = "3";
  165.       col9 = "3";
  166.       col10 = "3";
  167.       col11 = "3";
  168.       col12 = "3";
  169.       col13 = "3";
  170.       numpoints = "13";
  171.       totrotations = "360";
  172.       rotcount = "0";
  173.    }
  174.    if(curshape == "3")
  175.    {
  176.       ival = "50";
  177.       x1 = "0";
  178.       y1 = "0";
  179.       z1 = "0";
  180.       x2 = - ival;
  181.       y2 = "0";
  182.       z2 = "0";
  183.       x3 = (- ival) * "2";
  184.       y3 = "0";
  185.       z3 = "0";
  186.       x4 = (- ival) * "2";
  187.       y4 = ival;
  188.       z4 = "0";
  189.       x5 = (- ival) * "2";
  190.       y5 = ival * "2";
  191.       z5 = "0";
  192.       x6 = - ival;
  193.       y6 = ival * "2";
  194.       z6 = "0";
  195.       x7 = "0";
  196.       y7 = ival * "2";
  197.       z7 = "0";
  198.       x8 = (- ival) * "2";
  199.       y8 = - ival;
  200.       z8 = "0";
  201.       x9 = (- ival) * "2";
  202.       y9 = (- ival) * "2";
  203.       z9 = "0";
  204.       x10 = - ival;
  205.       y10 = (- ival) * "2";
  206.       z10 = "0";
  207.       x11 = "0";
  208.       y11 = (- ival) * "2";
  209.       z11 = "0";
  210.       numpoints = "11";
  211.       col1 = "1";
  212.       col2 = "2";
  213.       col3 = "4";
  214.       col4 = "3";
  215.       col5 = "3";
  216.       col6 = "2";
  217.       col7 = "1";
  218.       col8 = "3";
  219.       col9 = "3";
  220.       col10 = "2";
  221.       col11 = "1";
  222.       totrotations = "360";
  223.       rotcount = "0";
  224.    }
  225.    if(curshape == "4")
  226.    {
  227.       ival = "50";
  228.       x1 = "58";
  229.       y1 = "46";
  230.       z1 = "0";
  231.       x2 = "73";
  232.       y2 = - "17";
  233.       z2 = "0";
  234.       x3 = "32";
  235.       y3 = - "68";
  236.       z3 = "0";
  237.       x4 = - "33";
  238.       y4 = - "68";
  239.       z4 = "0";
  240.       x5 = - "74";
  241.       y5 = - "17";
  242.       z5 = "0";
  243.       x6 = - "59";
  244.       y6 = "46";
  245.       z6 = "0";
  246.       x7 = "0";
  247.       y7 = "75";
  248.       z7 = "0";
  249.       x8 = "0";
  250.       y8 = "58";
  251.       z8 = "46";
  252.       x9 = "0";
  253.       y9 = - "17";
  254.       z9 = "73";
  255.       x10 = "0";
  256.       y10 = - "68";
  257.       z10 = "32";
  258.       x11 = "0";
  259.       y11 = - "68";
  260.       z11 = - "33";
  261.       x12 = "0";
  262.       y12 = - "17";
  263.       z12 = - "74";
  264.       x13 = "0";
  265.       y13 = "46";
  266.       z13 = - "59";
  267.       numpoints = "13";
  268.       col1 = "1";
  269.       col2 = "1";
  270.       col3 = "1";
  271.       col4 = "1";
  272.       col5 = "1";
  273.       col6 = "1";
  274.       col7 = "3";
  275.       col8 = "2";
  276.       col9 = "2";
  277.       col10 = "2";
  278.       col11 = "2";
  279.       col12 = "2";
  280.       col13 = "2";
  281.       totrotations = "360";
  282.       rotcount = "0";
  283.    }
  284.    curshape += "1";
  285.    count = "1";
  286.    depth = "1";
  287.    while("20" >= count)
  288.    {
  289.       duplicateMovieClip("/point1_1","point" add (count + "1") add "_1",depth + 16384);
  290.       duplicateMovieClip("/point1_2","point" add (count + "1") add "_2",depth + "1" + 16384);
  291.       duplicateMovieClip("/point1_3","point" add (count + "1") add "_3",depth + "2" + 16384);
  292.       duplicateMovieClip("/point1_4","point" add (count + "1") add "_4",depth + "3" + 16384);
  293.       depth += "4";
  294.       count += "1";
  295.    }
  296. }
  297.